تصغير أو تكبير كل النوافذ المفتوحة بجهازك

Internet Store and Ecommerce Solution Provider - BizHosting.com

Choose an ISP: NetZero High Speed Internet Dial up $14.95 or NetZero Internet Service $9.95

تصغير أو تكبير كل النوافذ المفتوحة بجهازك

أكتب التالي في قسم التصاريح

Private Declare Function SendMessage Lib "user32" Alias _
"SendMessageA" (ByVal hwnd As Long, ByVal wMsg As _
Long, ByVal wParam As Long, lParam As Any) As Long

Private Declare Function FindWindow Lib "user32" Alias _
"FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName _
As String) As Long

Dim lng_Hwnd&

أضف زر امر واكتب التالي في حدث الضغط علية

Private Sub Command1_Click()
'الحصول على مقبض النافذة
lng_Hwnd& = FindWindow("Shell_TrayWnd", vbNullString)
'ارسال الرسالة تصغير الكل
SendMessage lng_Hwnd&, &H111, 419, 0&
End Sub

أضف زر امر اخر واكتب التالي في حدث الضغط علية

Private Sub Command2_Click()
'تراجع عن تصغير الكل
lng_Hwnd& = FindWindow("Shell_TrayWnd", vbNullString)
SendMessage lng_Hwnd&, &H111, 416, 0&
End Sub